home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp.zoo / clisp / examples / misc / contortd.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1991-10-25  |  466 b   |  20 lines
  1. ; Beispiel aus CLTL S. 120:
  2. (defun test1 (items)
  3.   (block loser
  4.     (catch 'stuff
  5.       (mapcar #'(lambda (x)
  6.                   (if (numberp x) (hairyfun x) (return-from loser nil))
  7.                 )
  8.               items
  9. ) ) ) )
  10.  
  11. ; Contorted Example aus CLTL S. 40:
  12. (defun test2 (f g x)
  13.   (if (= x 0)
  14.     (funcall f)
  15.     (block here
  16.       (+ 5 (test2 g #'(lambda () (return-from here 4)) (- x 1) ))
  17. ) ) )
  18. (eval-when (load eval) (test2 nil nil 2))
  19.  
  20.